perm filename BIG.MAC[CMS,LCS]1 blob sn#096331 filedate 1974-04-11 generic text, type T, neo UTF8
00100		ENTRY JOKES
00200	JOKES:	0
00300		MOVE 3,[201004020100]
00400		MOVE 4,110
00500		MOVE 5,1(16)
00600	TOP:	CAME 3,@5
00700		JRST NEXT
00800		SOJLE 4,RTRN
00900		AOJ 5,
01000		JRST TOP
01100	NEXT:	SETOM @0(16)
01200	RTRN:	JRA 16,2(16)
01300		END